function [discount,beca,stipend] = u14_2011(math,lang,demrecode,his,sci)
%% Potificia Universidad Catolica de Valparaiso
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Premio de Honor Rector Rub'en Castro
discount=((math==850) + (lang==850) + (his==850) + (sci==850))>0;

%BVP
if demrecode==1439 || demrecode==1431 || demrecode==1411 || demrecode==1414 || demrecode==1476 || demrecode==1433 || demrecode==1432 || demrecode==1416 || demrecode==1434 || demrecode==1435 || demrecode==1441 || demrecode==1436 || demrecode==1437 || demrecode==1475
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
